From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 23 Mar 2024 07:51:47 +0000 (+0200)
Subject: Avoid infinite recursion in 'image-mode--display'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2168^2~2
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=e52bc9ef6f7942b15d876566aca52340210ac27c;p=emacs.git

Avoid infinite recursion in 'image-mode--display'

* lisp/image-mode.el (image-mode): Suspend major mode only if it
is not already 'image-mode'.  (Bug#69785)
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 355685e70fd..fa64f1ac03e 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -654,8 +654,9 @@ Key bindings:
   (unless (display-images-p)
     (error "Display does not support images"))
 
-  (major-mode-suspend)
-  (setq major-mode 'image-mode)
+  (unless (eq major-mode 'image-mode)
+    (major-mode-suspend)
+    (setq major-mode 'image-mode))
   (setq image-transform-resize image-auto-resize)
 
   ;; Bail out early if we have no image data.